home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_EjectModule.dopus < prev    next >
Text File  |  1993-10-05  |  265b  |  17 lines
  1. /* EaglePlayer - Eject Module (C) DEFECT */
  2.  
  3. address 'rexx_EP'
  4.  
  5. options results
  6. status G fil
  7.  
  8. if result == "no" then do
  9.     address 'DOPUS.1'
  10.     toptext 'Eagleplayer: No Module loaded !'
  11. end
  12. else do
  13.     eject
  14.     address 'DOPUS.1'
  15.     toptext 'Eagleplayer: Module ejected !'
  16. end
  17.